Function OK()
'
' OK 宏
'
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "您将要操作的文件是否已全部保存 ?"  '定义消息文本
Style = vbYesNo + vbCritical + vbDefaultButton2    ' 定义按钮
Title = "请确认"    ' 定义标题文本
Help = "DEMO.HLP"    ' 定义帮助文件
Ctxt = 1000    ' 定义帮助主题
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' 用户按下“是”
    OK = 1  ' 完成某操作
Else    ' 用户按下“否”
    OK = 0    ' 完成某操作

End If

End Function